From: Lars Ingebrigtsen Date: Thu, 3 Feb 2011 05:01:44 +0000 (+0000) Subject: gnus-art.el (gnus-article-setup-buffer): Stop the date timer if gnus-article-update... X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~4959 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=c3d2fd0085c1a9f20222c222951398ac0f06896f;p=emacs.git gnus-art.el (gnus-article-setup-buffer): Stop the date timer if gnus-article-update-date-headers is nil. gnus.texi (Article Date): Remove mention of gnus-stop-date-timer, since it's run automatically. --- diff --git a/doc/misc/ChangeLog b/doc/misc/ChangeLog index 0f0224945b6..0254934d8bd 100644 --- a/doc/misc/ChangeLog +++ b/doc/misc/ChangeLog @@ -1,3 +1,8 @@ +2011-02-03 Lars Ingebrigtsen + + * gnus.texi (Article Date): Remove mention of gnus-stop-date-timer, + since it's run automatically. + 2011-02-01 Lars Ingebrigtsen * gnus.texi (Customizing Articles): Fix typo. diff --git a/doc/misc/gnus.texi b/doc/misc/gnus.texi index fba33534ad9..3806cdd8e96 100644 --- a/doc/misc/gnus.texi +++ b/doc/misc/gnus.texi @@ -9503,8 +9503,7 @@ that off, say: (setq gnus-article-update-date-headers nil) @end lisp -in your @file{~/.gnus.el} file. If you want to stop the updating -dynamically, you can use the @code{gnus-stop-date-timer} command. +in your @file{~/.gnus.el} file. @item W T o @kindex W T o (Summary) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index a98ae8ee0a2..40af3a16bf1 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2011-02-03 Lars Ingebrigtsen + + * gnus-art.el (gnus-article-setup-buffer): Stop the date timer if + gnus-article-update-date-headers is nil. + 2011-02-01 Julien Danjou * mm-uu.el (mm-uu-type-alist): Add support for git format-patch diff diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index af47daf970b..bddcaa9fd9d 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -4505,9 +4505,13 @@ commands: (setq gnus-summary-buffer (gnus-summary-buffer-name gnus-newsgroup-name)) (gnus-summary-set-local-parameters gnus-newsgroup-name) - (when (and gnus-article-update-date-headers - (not article-lapsed-timer)) + (cond + ((and gnus-article-update-date-headers + (not article-lapsed-timer)) (gnus-start-date-timer gnus-article-update-date-headers)) + ((and (not gnus-article-update-date-headers) + article-lapsed-timer) + (gnus-stop-date-timer))) (current-buffer))))) ;; Set article window start at LINE, where LINE is the number of lines